home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / MPW Goodies / MPW Goodies⁄DTS / ProjListMenu < prev    next >
Text File  |  2022-08-05  |  327b  |  14 lines
  1. Set Exit 0
  2. DeleteMenu ProjList ≥ Dev:Null > Dev:Null
  3.  
  4. Set ProjectNameList "`MountProject -pp -s -r | Sort -l`"
  5.  
  6. for i in {ProjectNameList}
  7.     AddMenu ProjList "{i}" "Set ProjName ∂"{i}∂"; ∂
  8.         Execute SetProject; ∂
  9.         ( Evaluate "{i}" =~ /([a-zA-Z0-9_. ]+∂∫)*([¬∂∫]+)®1∂∫/ ) ∑ Dev:Null; ∂
  10.         Set Program ∂"∂{®1∂}∂""
  11. end
  12.  
  13. Set Exit 1
  14.